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I.  INTRODUCTION 


The  role  of  the  University  of  Alabama  in  Huntsville  (UAH)  in  this  project 
has  been  to  provide  support  on  the  two  Perkin  Elmer  minicomputers  available. 
This  specifically  involved  setting  up  a  workinq  version  of  the  PII  digital 
simulation  (U70),  and  at  the  same  time  permitting  rapid,  easy  modification. 

The  major  problem  advanced  was  that  the  simulation  was  very  larqe,  much 
too  large  to  run  using  normal  methods.  Therefore,  the  program  was  broken  into 
subunits  and  was  overlaid.  This  presented  a  multiplicity  of  problems  which 
will  be  discussed.  The  software  for  U70  operations  is  presented  in  detail. 

II.  THE  OVERLAY  STRUCTURE 

U70  was  delivered  to  the  Systems  Evaluation  Branch  as  a  large  block  of 
FORTRAN  code.  This  indicated  that  the  program  was  executed  in  the  normal 
method,  which  required  all  executable  codes  to  be  In  memory  at  the  issuance 
of  the  start  command.  This  required  approximately  900K  Bytes  of  memory.  The 
constraint  for  Perkin  Elmer  use  was  330K  Bytes,  so  obviously  overlaying  was 
in  order.  Even  at  330KB  and  U70  user  was  the  only  possible  user  because  all 
memory  was  absorbed  by  the  U70  task. 

Overlaying  is  a  technique  which  permits  discs  to  act  as  psuedo  main 
memory.  Using  this  method  only  an  overlay  containing  a  called  subprogram  is 
loaded  in  main  memory.  The  overlay  may  contain  one  or  more  subprograms. 

Figure  1  illustrates  an  overlaid  structure. 


At  any  time  only  the  subprograms  in  the  root  overlay,  any  one  of  the 
first  level  and  any  one  of  the  second  level,  can  be  in  memory.  For  example, 
only  A,  B,  and  E  can  be  in  memory  at  a  time.  Therefore,  subprograms  in  E 
cannot  call  routines  in  C,  D,  G,  or  H.  The  total  size  of  the  loaded  task 
(the  allocated  size  of  memory  to  be  used)  is  the  total  of  the  root  overlay, 
the  largest  overlay  in  the  first  level  and  the  largest  overlay  in  the  second 
level.  The  root  overlay  contains  routines  which  are  often  used  or  are  in 
more  than  one  overlay.  Usina  this  method  the  size  of  the  task  is  approximately 
31  OK  Bytes. 
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III.  COMPILING  U70 

U70  is  compiled  using  the  Development  (D)  compiler  with  the  same  CSS 
commands  as  usual  except  that  logical  unit  (lu)  9  is  assigned  to  a  file 
(U70TIM.  COM)  containing  the  major  common  blocks  used  by  the  U70  subroutines. 
The  file  delivered  to  Systems  Evaluation  Branch  was  composed  of  a  single  file 
which  contained  all  U70  routines.  For  compilation  ease  this  file  was  broken 
into  multiple  files,  most  of  which  contain  only  one  subprogram.  This  permits 
a  change  to  be  made  quickly,  since  only  one  subroutine  must  be  recompiled 
rather  than  all  the  subroutines  contained  in  one  file.  If  the  size  of  the  file 
to  be  compiled  is  large,  it  is  often  necessary  to  increase  the  load  size  of  the 
compiler.  This  is  needed  to  stop  the  compiler  from  putting  part  of  the  symbol 
table  out  on  disc  rather  than  maintaining  it  in  memory.  This  problem  causes 
the  compiler  to  be  extremely  slow.  One  hundred  K  Bytes  is  enough  to  keep  the 
symbol  table  from  paging  to  disc.  The  CSS  command  used  to  compile  a  U70  pro¬ 
gram  unit  is  U70C.  An  FTN  (FORTRAN)  extension  is  assumed  on  the  file  to  be 
compiled. 

U70C  @1,  @2,  @3,  @4,  @5 

@1 :  Input  source  file 

@2:  Object  filename,  defaults  to  @1.0BJ 

@3:  List  filename,  defaults  to  01.LST 

@4:  Start  Option(s)  separated  with  spaces,  defaults 
to  no  options 

@5:  Load  size  for  F7D,  d-faults  to  50K  Bytes. 

The  user  also  has  the  option  of  compiling  all  PI  I  source  files  by 
entering  the  U70CA  command.  This  will  execute  the  CSS  file  U70CA.  No  input 
parameters  are  required.  U70CA  deletes  all  List  (LST)  files,  therefore,  if 
a  LST  file  is  required  for  debugging  the  subprogram  should  be  recompiled 
using  U70C.  If  an  error  occurs  in  U70CA,  the  file  being  compiled  at  the  time 
of  the  error  will  not  be  compiled.  Figure  2  list  U70  source  files. 

IV.  LINKING  U70 

Linking  is  the  process  by  which  calls  to  externals  are  resolved  and  an 
executable  image  of  the  object  is  produced.  In  the  case  of  U70,  the  executable 
task  is  on  overlaid  task,  with  the  overlays  defined  in  the  linking  process. 

The  overlays  are  structured  such  that  no  subprogram  calls  to  any  other 
subprogram  in  another  overlay.  An  overlay  must  be  loaded  only  once.  In 
developing  the  overlay  structure,  a  level  of  2  was  used,  but  this  caused  data 
communication  problems  between  subprogram  units  contained  in  different  overlays. 
Under  all  circumstances  the  data  assigned  to  all  variables  and  arrays  not 
contained  in  a  common  block  or  passed  was  lost  on  execution  of  an  END  command. 
Using  a  SAVE  command  the  data  could  be  saved,  but  only  until  the  overlay  was 
reloaded.  The  communication  problem  necessitated  the  use  of  only  level  one 
overlays.  Using  level  one  overlaying,  a  unit  only  needed  to  be  loaded  once. 
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ARD59D.FTN 

BEE  . FTN 

CONV 

FASTD 

FASTC 

SORTIT 

SPEEDY 

WRTAPE 

BINIT 

BGUID 

FUNC 

VAC RAN 

FOLD 

GRAPH 

NINIT 

ENPUT 

RVEXEC 

STAT 

RVOUT 

RVGUID 

QUAD 

RVINIT 
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BEXEC 
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BOUT 
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RATI I M 

BAERO 

Figure  2.  U70  source  files. 
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which  permitted  variables  to  be  saved  with  the  inclusion  of  a  SAVE  command. 

This  increased  the  task  size  but  made  the  simulation  operational. 

Another  previously  unknown  problem  encountered  was  that  an  object  or 
objects  produced  by  an  R04.0  compiler  cannot  be  linked  by  TET;  if  the  task  is 
complex,  LINK  must  be  used.  U 70  is  linked  using  the  command  U70LINK.  This 
command  executes  the  instruction  contained  in  U70LINK.CSS.  No  input  parameters 
are  required. 

V.  RUNNING  U70 

U70  is  executed  using  the  commands  UST1  and  UST2.  These  commands  invoke 
CSS  files  containing  the  comands  to  load  the  task,  make  logical  unit  assign¬ 
ments,  and  start  the  task.  UST1  is  used  to  create  a  file  assigned  to  LU  11 
which  is  used  as  the  major  input  source  for  U70  when  UST2  is  called. 

UST1  is  called  as  a  preparatory  step  in  executing  U70.  It  is  only 
necessary  to  use  UST1  occasionally;  therefore,  it  is  maintained  as  a  separate 
file.  Both  UST1  and  UST2  expect  a  */*  as  an  end  of  data  marker;  therefore, 
all  input  files  must  end  in  a  */*. 

VI.  DEBUGGING  U70 

U70  can  be  debugged  using  the  normal  methods,  but  because  of  the  size 
and  complexity  of  U70  the  use  of  a  task  map  is  a  necessity.  Task  maps  contain 
all  the  addresses  of  the  subprogram  units  in  a  FORTRAN  program.  Using  the  map 
in  conjunction  with  the  FORTRAN  list  (LST)  file  and  the  error  address,  the 
line  in  error  can  be  pinpointed.  This  allows  a  user  to  find  a  line  in  error 
out  of  several  thousand. 

The  first  step  in  finding  the  error  address  is  to  compare  the  address 
given  during  program  execution  with  the  program  (P)  addresses  in  the  map.  All 
program  addresses  greater  than  the  execution  address  are  excluded.  The  address 
just  less  than  the  error  address  defines  the  subprogram  which  contains  the 
error.  This  program  address  is  then  subtracted  from  the  execution  error  ad¬ 
dress.  The  result  is  the  offset  into  the  subprogram  which  contains  the  problem. 
The  offset  points  to  a  line  of  FORTRAN  code,  which  can  be  found  using  the  LST 
file  of  the  subprogram  which  contains  the  problem. 
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APPENDIX  A 
PROGRAM  LISTING 


i 

i 


* 

* 


U70C.CSS 
*31  =  INPUT  FILE 

*  ml  -  OBJECT  FILE  (DEFAULT  51.03J) 

*  33  =  LIST  FILE  (DEFAULT  PR:> 

*  44  =  START  OPTIONS 

*  35  =  LOAD  SIZE  FOR  F7D  (DEFAULT  2CK) 

* 

SIFNU  ilitcopy 

**30:  MIS SINS  FIRST  PARAMETER 

shoe 

$clear;ssndc 

SIf  NX  31 .FTNfSCOPY 

**30:  INPUT  FILE  NON-SXI3TANT 

SNOC 

sclear;sendc 

SIFNU  35*  LO  .BG,F?0,5C JSENDC 
SIFNN  25;L0  .2S/F7D/25/ JENDC 
T  .  3G 

AS  Ixil.FTN/SRO 
JIFN.N  32 

ALLONEU  32 .03J  ^126/2 
AS  2sS2.0EJ 
SENDC 
SIFNU  32 

ALLONEW  Jl .03J/126/2 
AS  2*a1.0SJ 
SENDC 

ALLONEW  31.LST 

SIFNU  33;AS  3*  31 . LST» i cNDC 

SIFNN  33;$IFNX  33;$C0PY 

**30:  LIST  FILS  OR  DEVICE  NON- SXISTANT 

snoc;iclear;*endc 

AS  3/33/EN0;SENDC 
AS  9/U70TIM.CCM 
ST  /34 
$1 FG  3 

life  a;scopy 

**30:  COMPILATION  ERRORS  !  !  ! 

SNOC 

SENDC 

SIFE  6/SCOPY 

**30:  SAD  START  OPTIONS  -  34 
SNOC 

SENDC 

SIFE  SISCOPY 

**30:  MEMORY  OVERFLOW  -  INCREASE  LOAD  SIZE:  35 
SNOC 

SENOC 

SIFE  lOFSCOPY 

**30:  ECM/SOF  ON  SYM3CL  TA3LS  FILE  -  DELETE  OLD  FILES 
SNOC 

SENDC 

SENDC 

SEXIr 
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*  U7QCA.CSS 

*  USED  TO  COMPILE  ALL  PH  FILE 

* 

SJ  08 

U73C  U70MAIN////1G0 
STER.MJ  03 
* 

SJ 

U70C  ARD59D////10C 
ST 
* 

SJ 

U70C  EEE////1C0 
ST 
* 

SJ 

U70C  C0NV////100 
ST 
* 

SJ 

U70C  F  ASTD // // 1 00 

ST 

* 

SJ 

U70C  FASTC////100 
ST 
* 

SJ 

U70C  S0RTIT////10C 
ST 

* 

SJ 

'J70C  SPEEDY/ // / 1  OC 

ST 

* 

SJ 

U70C  WRTAP5////1 00 

ST 

* 

SJ 

U70C  EINIT////103 
ST 
* 

SJ 

U70C  6GUID  ////100 
ST 
* 

SJ 

U70C  FUNC////1Q0 
ST 
* 

SJ 

U70C  VACRAN////100 
ST 
* 

SJ 

U7QC  F0LD////1 00 
ST 
* 

SJ 

U70C  GRAPH//// 100 
ST 
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U70CA.CSS  (Cont'd) 


* 

SJ 

U7QC  NINIT////100 
ST 
* 

SJ 

U70C  ENPUT////100 
ST 
* 

SJ 

J70C  RVEXEC////10C 
ST 
• 

SJ 

U70C  STAT////100 
ST 
* 

SJ 

U70C  PVCUT////1C0 
ST 
* 

SJ 

U70C  rvgu:d////10Q 
ST 

* 

SJ 

U70C  QUAD, ///IOC 

ST 

* 

SJ 

U70C  RVINIT////100 
ST 
* 

SJ 

U70C  3VAPLT////100 

ST 

* 

SJ 

U70C  RVAERO////1 OC 
ST 
* 

SJ 

U70C  5CS////109 
ST 
* 

SJ 

U70C  RANDU////100 
ST 
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U70CA.CSS  (Cont'd) 


U70C  GAUSS///#1C0 
ST 
* 

SJ 

U70C  6EXEC////100 
ST 


U70C  THRUST////100 
ST 


U70C  T«IMA</r/1C0T 
ST 

* 

SJ 

U70C  B0UT//*/1 00 
ST 

* 

SJ 

U70C  6 APLT ✓  * /  * 1  CO 
ST 
* 

SJ 

U70C  R ATLIM/ / / /I OC 
ST 
* 

SJ 

U70C  3AER0//**1C0 
5T 
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U70CA.CSS  (Cont'd) 


XOE  U70MAIN.UST 
XOE  AR059D.LST 
XDE  SEE. LST 
XOE  CCNV.LST 
XOE  FASTO.LST 
XOE  FASTC.LST 
XOE  SC  RTIT .LST 
XOE  SPSEOY.LST 
XOE  WRTAPE.LST 
XDE  3IMIT.LST 
XOE  3GUID.LST 
XOE  FUNC.LST 
XOt  VACRAN.LST 
XOE  FOLD. LST 
XOE  GRAPH. LST 
XOE  NINIT.LST 
XOE  ENPUT.LST 
XOE  ST  AT .LST 
XOE  RV OUT. LST 
XDE  RV3UI0.LST 
XOE  3LA0.LST 
XOE  RVINIT.LST 
XOE  RVAPLT.LST 
XOE  rvaero.lst 
XOE  SCS.LST 
XOE  GAUSS. LST 
XOE  RANOU.LST 
XOE  3EXEC.LST 
XOE  THRUST. LST 
XOE  TRIMA.LST 
XOE  3CUT.LST 
XOE  3APLT.LST 
XOE  R ATLl W.LST 
XOE  3 A ERO. LST 
SCLEAR 
SEXIT 


*  U7QL1NK.CSS 
L  .BS*LINK 

T  •  3G 

XD c  U70LINK. ^AP 
AL  U7CLINK.MAP*IN 
XDE  LINK.C^D 
XD E  U70.TSK 

* 

S3UILD  L I N< • CP  D 
establish  TASK 
OP  DP 
OP  FL 

OP  W0=1500 
OP  NAF  PAUSE 
OP  IO2LOCKS=10 
OP  SYSSPAC E=5COC 
N!A?  U70LINK.MAP* AD*XR 


XNCL  U7CMAIN 
INCL  ARD59D 
IN CL  3ee 
INCL  CONV 
INCL  FASTD 
INCL  FASTC 
INCL  SOPTIT 
INCL  S  De  ED Y 
INCL  WRTAPE 
INCL  BINIT 
INCL  5GUID 
INCL  FUNC 
INCL  VACRAN 
INCL  FOLD 
INCL  GRAPH 


OVERLAY  ONE*1 
INCLUDE  NINIT 


OVERLAY  TWO*  1 
INCL  ENPUT 
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U70LINK.CSS  (Cont'd) 


OVERLAY  THREE/1 
INCLUDE  RV2XEC 
INCLUDE  STAT 
INCL  RVOUT 
INCL  RVGUID 
INCL  QUAD 
INCL  PVINIT 
INCL  RVAPLT 
INCL  RVAERO 
INCL  SCS 
INCL  GAUSS 
INCL  PANDU 


OVERLAY  FOUR/1 
INCLUDE  3EXEC 
INCLUOE  THRUST 
INCL  TRIMA 
INCL  EOUT 
INCL  6APLT 
INCL  RA7LIM 
INCL  e AERO 


LI3RARY  F7RTL.03J/S 

3UILD  U70.TSK 

END 

SEN03 

ST  /C=LINK.C*D/L=NULL 
SEXIT 


UST1.  CSS 


L  •  8  3  /  U  7  3 
T  .  3  G 

XDE  TAPE11  .DAT 
XDE  U70IN1.DAT 
AL  TAPS11.DAT/IN 
AL  U7QIN1 . DAT/ IN 
AS  O/CON: 

AS  1/NULL: 

AS  2/CON: 

AS  3/PR: 

AS  4/U7CIN1.DAT 
AS  5zU70lNPUT.DAT 
AS  6/PR: 

AS  7, null: 

AS  8/CON: 

AS  9/NULL: 

AS  10/NULL: 

AS  11zTAPE11.DAT 
AS  12/NULL: 

AS  13/ NULL: 

AS  14/NULL: 

ST 

SEXIT 
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UST2.  CSS 


L  .6G/U70 
T  .BG 

XDE  NINE. OAT 
AL  NINc.DAT/TN 
AS  O/CON: 

AS  1 /NULL: 

AS  2/CON: 

AS  3/PS: 

AS  4/U7CIN1 .DAT 
AS  5 / COS 32 . DAT 
AS  6/PS: 

AS  7/NULL: 

AS  8/CON: 

AS  9/NINs. OAT 
AS  10/NULL: 

AS  1 1 /TAPE  1 1 . D AT 
AS  12/NULL: 

AS  13/NULL: 

AS  14/NULL: 

ST 

JEXIT 
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